﻿Option Explicit On
Option Strict On

''' <summary>
''' Modulo para comprobar datos de un textbox para la consulta
''' </summary>
''' <name>Antonio Ramos Torres</name>

Module ModuloBuscarAvanzada
    Public Function Numerico(ByVal valor As String) As Boolean
        Dim valido As Boolean = True
        Dim prueba As Integer

        Try
            prueba = CInt(valor)
        Catch ex As Exception
            valido = False
        End Try

        Return valido
    End Function

    Public Function Fecha(ByVal valor As String) As Boolean
        Dim valido As Boolean = True
        Dim prueba As Date

        Try
            prueba = CDate(valor)
        Catch ex As Exception
            valido = False
        End Try

        Return valido
    End Function

End Module
